From: Martin Rudalics <rudalics@gmx.at>
Date: Wed, 18 Feb 2009 18:36:11 +0000 (+0000)
Subject: (custom-group-value-create): Insert some
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1710
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=45e2df67268a2f235a04f201a018fc895720df33;p=emacs.git

(custom-group-value-create): Insert some
informatory text in the WIDGET-misses-doc-string case.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31ac35f038f..fe297ad6816 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-18  Martin Rudalics  <rudalics@gmx.at>
+
+	* cus-edit.el (custom-group-value-create): Insert some
+	informatory text in the WIDGET-misses-doc-string case.
+
 2009-02-18  Sam Steingold  <sds@gnu.org>
 
 	* progmodes/compile.el: Require comint at top level to fix the
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 3c2985a3b9b..76a021ec1c0 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4006,8 +4006,11 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
 	   (let ((start (point)))
 	     (insert tag " group: ")
 	     (widget-specify-sample widget start (point)))
-	   (when (and doc (< (length doc) 50))
-	     (insert doc))
+	   (cond
+	    ((not doc)
+	     (insert " Group definition missing. "))
+	    ((< (length doc) 50)
+	     (insert doc)))
 	   ;; Create visibility indicator.
 	   (unless (eq custom-buffer-style 'links)
 	     (insert "--------")